home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 20 / 64er_Magazin_Sonderheft_20_19xx_Markt__Technik_de_Side_A.d64 / listing 5 (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  1KB  |  29 lines
  1. 10 rem * beispiel 2 *
  2. 20 rem erzeugen mehrfarbiger selbstdefinierter zeichen
  3. 31 poke 56334,peek(56334) and 254:poke 1,peek(1) and 251
  4. 35 for i=0 to 63          :rem zu kopierende zeichen
  5. 36 for j=0 to 7           :rem alle 8 bytes pro zeichen
  6. 37 poke 12288+i*8+j,peek(53248+i*8+j):rem kopiere ein byte
  7. 38 next j,i               :rem naechstes byte oder zeichen
  8. 39 poke 1,peek(1) or 4:poke 56334,peek(56334) or 1
  9. 40 poke 53272,(peek(53272) and 240) + 12:rem zeichenram einschalten
  10. 50 poke 53270,peek(53270) or 16
  11. 51 poke 53281,0           :rem hintergrundfarbe 0 auf schwarz
  12. 52 poke 53282,2           :rem hintergrundfarbe 1 auf rot
  13. 53 poke 53283,7           :rem hintergrundfarbe 2 auf gelb
  14. 60 for zeic=60 to 63      :rem neue zeichen 60 bis 63
  15. 80 for byte=0 to 7        :rem alle 8 bytes pro zeichen
  16. 100 read zahl             :rem lese 1/8 zeichendaten
  17. 120 poke 12288+(8*zeic)+byte,zahl:rem speichern im zeichenram
  18. 140 next byte,zeic
  19. 150 print"[147]"tab(255)chr$(60)chr$(61)tab(55)chr$(62)chr$(63)
  20. 160 rem zeile 150 bringt die neuen zeichen auf den bildschirm
  21. 170 get a$                :rem erwartet tastendruck
  22. 180 if a$="" then 170     :rem sonst neuer versuch
  23. 190 poke 53272,21:poke 53270,peek(53270) and 239:rem normaler zeichensatz
  24. 200 data 129,37,21,29,93,85,85,85 :rem zeichendaten fuer zeichen 60
  25. 210 data 66,72,84,116,117,85,85,85:rem zeichen 61
  26. 220 data 87,87,85,21,8,8,40,0     :rem zeichen 62
  27. 230 data 213,213,85,84,32,32,40,0 :rem zeichen 63
  28. 240 end
  29.